home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / IMAGELIB.ZIP / MIMAGE.ZIP / UFULLSCR.PAS < prev    next >
Pascal/Delphi Source File  |  1995-07-26  |  1KB  |  49 lines
  1. {Part of Imagelib VCL/DLL Library.
  2.  
  3. Written by Jan Dekkers and Kevin Adams}
  4.  
  5. unit Ufullscr;
  6.  
  7. interface
  8.  
  9. uses
  10.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  11.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Reg_im20;
  12.  
  13. type
  14.   TFullSlide = class(TForm)
  15.     MultiImage1: TMultiImage;
  16.     procedure ImageClick(Sender: TObject);
  17.     procedure FormCreate(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  23.  
  24. var
  25.   FullSlide: TFullSlide;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. {-------------------------------------------------------------------------}
  32. procedure TFullSlide.FormCreate(Sender: TObject);
  33. begin
  34.   SetBounds(0,0,screen.width,screen.height);
  35.   MultiImage1.top:=0;
  36.   MultiImage1.left:=0;
  37.   MultiImage1.height:=screen.height;
  38.   MultiImage1.width:=screen.width;
  39. end;
  40.  
  41. {-------------------------------------------------------------------------}
  42. procedure TFullSlide.ImageClick(Sender: TObject);
  43. begin
  44.   fullslide.close;
  45. end;
  46.  
  47. end.
  48.  
  49.